home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 2848F.ZIP / INPUTS2.ARC / BEZIER.STY < prev    next >
Text File  |  1987-12-15  |  955b  |  30 lines
  1. % bezier.sty  17-Dec-85
  2.  
  3. \newcounter{@sc}
  4. \newcounter{@scp}
  5. \newcounter{@t}
  6. \newlength{\@x}
  7. \newlength{\@xa}
  8. \newlength{\@xb}
  9. \newlength{\@y}
  10. \newlength{\@ya}
  11. \newlength{\@yb}
  12. \newsavebox{\@pt}
  13. \def\bezier#1(#2,#3)(#4,#5)(#6,#7){\c@@sc#1\relax
  14.  \c@@scp\c@@sc \advance\c@@scp\@ne
  15.  \@xb #4\unitlength \advance\@xb -#2\unitlength \multiply\@xb \tw@
  16.  \@xa #6\unitlength \advance\@xa -#2\unitlength
  17.  \advance\@xa -\@xb \divide\@xa\c@@sc
  18.  \@yb #5\unitlength \advance\@yb -#3\unitlength \multiply\@yb \tw@
  19.  \@ya #7\unitlength \advance\@ya -#3\unitlength
  20.  \advance\@ya -\@yb \divide\@ya\c@@sc
  21.  \setbox\@pt\hbox{\vrule height\@halfwidth depth\@halfwidth 
  22.  width\@wholewidth}\c@@t\z@ 
  23.  \put(#2,#3){\@whilenum{\c@@t<\c@@scp}\do
  24.  {\@x\c@@t\@xa \advance\@x\@xb \divide\@x\c@@sc \multiply\@x\c@@t 
  25.  \@y\c@@t\@ya \advance\@y\@yb \divide\@y\c@@sc \multiply\@y\c@@t 
  26.  \raise \@y \hbox to \z@{\hskip \@x\unhcopy\@pt\hss}\advance\c@@t\@ne}}}
  27.  
  28.  
  29.  
  30.